home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hottest 6
/
Hottest 6 (1996)(PDSoft)[!].iso
/
software
/
emulators
/
pc-taskdemo3.1
/
pc-taskpatch3.1
/
update_pc-task3.0
< prev
next >
Wrap
Text File
|
1978-11-24
|
4KB
|
202 lines
; PC-Task v3.0 to v3.10 Updater
; 24/3/95 Copyright 1995 Quasar Distribution
; Translated by:
(set @default-dest "SYS:")
(set german_readme_size 1446)
; English language
(set #pctask-location
(cat "Please select location of PC-Task program(s):"
))
(set #help-askbool
(cat "Please select Yes to install the file(s) "
"or select No so they are not installed. "
))
(set #help-askloc
(cat "Your PC-Task and/or PC-TaskTurbo program "
"must be in the directory you select in "
"order for it to be updated. The programs "
"must not have their files names changed. "
))
(set #install-crossmount
(cat "Do you wish to install the PCTCrossmount program?\n"
"This program easily creates a mountlist file for "
"PC-Task hardfiles or partitions. "
))
;--------------------------------------------------
(set dest2 (askdir (prompt #pctask-location)
(default @default-dest)
(help #help-askloc)
)
)
(set pp (pathonly @icon))
(set pp (cat "\"" pp "/"))
(set pq (cat pp "PCTPatch\" "))
; update the PC-Task program if it exists
(if (= (exists (tackon dest2 "PC-Task68000_10")) 1)
(
(run (cat pq "\"" (tackon dest2 "PC-Task68000_10\" ") (tackon pp "PC-Task68000_10.pch\" ") "ram:PC-Task68000_10"))
(if (= (exists "ram:PC-Task68000_10") 1)
(
(copyfiles
(source "ram:PC-Task68000_10")
(dest dest2)
(help @copyfiles-help)
)
(delete "ram:PC-Task68000_10")
)
)
)
)
(if (= (exists (tackon dest2 "PC-Task68020_60")) 1)
(
; ----this is the oldfile------------------- -----patchfile--------------------- ----newfile-----------
(run (cat pq "\"" (tackon dest2 "PC-Task68020_60\" ") (tackon pp "PC-Task68020_60.pch\" ") "ram:PC-Task68020_60"))
(if (= (exists "ram:PC-Task68020_60") 1)
(
(copyfiles
(source "ram:PC-Task68020_60")
(dest dest2)
(help @copyfiles-help)
)
(delete "ram:PC-Task68020_60")
)
)
)
)
; update the PC-Task Turbo program if it exists
(if (= (exists (tackon dest2 "PC-TaskTurbo68000_10")) 1)
(
(run (cat pq "\"" (tackon dest2 "PC-TaskTurbo68000_10\" ") (tackon pp "PC-TaskTurbo68000_10.pch\" ") "ram:PC-TaskTurbo68000_10"))
(if (= (exists "ram:PC-TaskTurbo68000_10") 1)
(
(copyfiles
(source "ram:PC-TaskTurbo68000_10")
(dest dest2)
(help @copyfiles-help)
)
(delete "ram:PC-TaskTurbo68000_10")
)
)
)
)
(if (= (exists (tackon dest2 "PC-TaskTurbo68020_60")) 1)
(
(run (cat pq "\"" (tackon dest2 "PC-TaskTurbo68020_60\" ") (tackon pp "PC-TaskTurbo68020_60.pch\" ") "ram:PC-TaskTurbo68020_60"))
(if (= (exists "ram:PC-TaskTurbo68020_60") 1)
(
(copyfiles
(source "ram:PC-TaskTurbo68020_60")
(dest dest2)
(help @copyfiles-help)
)
(delete "ram:PC-TaskTurbo68020_60")
)
)
)
)
(set hardy (askbool
(prompt #install-crossmount)
(help #help-askbool)
)
)
(if (= hardy 1)
(
(copyfiles
(source "PCTCrossMount")
(dest dest2)
(infos)
(help @copyfiles-help)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest2 "PCTCrossMount"))
(noposition)
)
(if (= (getsize (tackon dest2 "README_FIRST!")) german_readme_size)
(
(copyfiles
(source "PCTCrossMount_deu.doc")
(dest dest2)
(newname "PCTCrossMount.doc")
(help @copyfiles-help)
)
(copyfiles
(source "PCTCrossMount.doc.info")
(dest dest2)
(help @copyfiles-help)
)
)
(
(copyfiles
(source "PCTCrossMount.doc")
(dest dest2)
(infos)
(help @copyfiles-help)
)
)
)
(tooltype
(help @tooltype-help)
(dest (tackon dest2 "PCTCrossMount.doc"))
(noposition)
(setdefaulttool "more")
)
)
)
;replace German readme file
(if (= (getsize (tackon dest2 "README_FIRST!")) german_readme_size)
(
(copyfiles
(source "README_DEU")
(dest dest2)
(newname "README_FIRST!")
(help @copyfiles-help)
)
)
(
(copyfiles
(source "README")
(dest dest2)
(newname "README_FIRST!")
(help @copyfiles-help)
)
)
)
(set @default-dest dest2)